From: Juri Linkov <juri@jurta.org>
Date: Wed, 25 Nov 2009 21:16:58 +0000 (+0000)
Subject: (Man-completion-table): Modify regexp to include section names
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9256
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a7b665f4bcfc16d1a294099ffe86accd97e3e392;p=emacs.git

(Man-completion-table): Modify regexp to include section names
to completion strings.  (Bug#3717)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b3fb327208..fd586757b34 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-25  Juri Linkov  <juri@jurta.org>
+
+	* man.el (Man-completion-table): Modify regexp to include
+	section names to completion strings.  (Bug#3717)
+
 2009-11-25  Juri Linkov  <juri@jurta.org>
 
 	Search recursively in gzipped files.  (Bug#4982)
diff --git a/lisp/man.el b/lisp/man.el
index 364a5d248fc..25ba3eb0638 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -770,7 +770,7 @@ POS defaults to `point'."
           (call-process manual-program nil '(t nil) nil
                         "-k" (concat "^" string))
         (goto-char (point-min))
-        (while (re-search-forward "^[^ \t\n]+" nil t)
+        (while (re-search-forward "^[^ \t\n]+\\(?: (.+?)\\)?" nil t)
           (push (match-string 0) table)))
         ;; Cache the table for later reuse.
         (setq Man-completion-cache (cons string table)))